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> 

> Module: Format Routines 
> 

> This module contains all but the very most primitive of 

> of procedures < the routines that are resident are I Is ted 

> in the external spec's ) that concern themselves with performing 

> a format operation. 
> 

> PROCEDURE Forma tTrackC Offset, Interleave > 

> PROCEDURE LocateSector 
> 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
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> Procedure: Forma tTrack 

> This function is responsible for formatting the track at which 

> the heads are currently positioned. 
> 

> Inputs: 

> Offset : BVTE { !r4 > 

> InterLeave : BVTE { !r5 } 
> 

> Outputs: { none > 
> 

> ft I gor i thm : 

-^ BEGIN 

> For i := 1 TO LENGTHS Forroatflrray > DO 

> Forma tflrrayl i ] := 

> WHILE NOT< Index ) DO BEGIN END 

> Turn on flC erase { FmenL } 

> IF IndexMork 

> THEN 

> Turn Off fiC erase 

> WHILE ( Offset > > DO 

> WHILE NOT< Sectorhark > DO BEGIN END 

> WHILE Sector-Mark DO BEGIN END 

> Offset := Offset - 1 

> InterLeoveFactor- := InterLeaveTableE InterLeave ] 

> Sector := 

> FOR i := 1 TO Number Of Sectors DO 

> IF mid Formate lock ) THEN Rbort 

> Sector := C Sector + InterLeaveFactor ) MOD NbrSctrs 

> END 
> 
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FIN 





.DO 


W_tOf1B 


1 nterTab 1 e : 


.DB 
.ELSE 


2, 1. 7, 10, 8, 13, 3 


Inter Table: 


.DB 
.FIH 


2, 1, 26, 10, 8, 13, 22 


Forma tTrack : 








Ld 


!r2,«.HIBVTE. 2ero_Frot 




Ld 


!r3,*.L0WBVTE. 2ero_Fint 




Call 


BankJCall 




Or 


D}skStat,«WrJOp 


FmtT_1 : 


Tm 


Ports, «lndexriark ;UH 




Jr 


2,Fn»tT_1 



FffitT_2: 
FmtTJ3: 



FmtJOffI: 
F!ntJ0ff2: 

Fmt_Begln: 



FmtTrkJZ: 



FnitTJUntil 



FmtT2JUntil 



find For tO , «$FF-ficEraseL 



WHILE HOTC Index > 



turn on flC erase 



Tm Port3,«lndexriark ; WHILE Index 

Jr Hz,FmtT_2 

Tm Ports, «tndexriark ; WHILE NOTC Index > 

Jr 2,FmtT^ 

Or PortO,*flcEraseL ;turn off flC erase 

Or !r4, !r4 ;test for offset 

Jr 2,Ffflt_Begin 

find lrq,*$FF-lrqJSector ; clear old sector mark 

Tm Jrq,*lrqjSector ;wait for mark to pass 

Jr 2,FmtJ0ff2 

DJnz I r4, FmtJOffI 

Ld !r2,».HIBVTE. I nterTab I e 

Ld lr3,«.L0WBVTE. I nterTab I e 

fidd !r3, !r5 ;qet offset into table 

fldc Jr2,«0 

Ldc !r6,e?fr2 

CIr Sector ; sec tor := 

Ld !r5,«ribrSctrs 

Ld !r1,«0!nt_Fn»tTrk 

Call Formats lock 

Jr N2,FffitTJUntil 

Ld Ir9, IrO ;pass reason for abort 

Call fibort 

Add Sector, I r6 ; Sector := Sector + InterLeaueFactor 

Cp Sector, «NbrSctrs ; Sector := Sector HOD HbrSctr^ 

Jr Lt,FmtT2JLlntil 

Sub Sector, «NbrSctrs ;do MOD by subtraction 

Djnz !r5,FffltTrk_2 

Jp Bank_Ret 
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Procedure: LocateSector 

This procedure returns to the cal ler just after the sector 
mark representing the sector JUST BEFORE the sector of the 
last seek address. 

Inputs: { none ) 

Outputs: { none } 

Global Uariabies Used: 
Sector 

fligori thm: 

BEGIN 
Offset := SpareTabie.FmtOffset 
InterL := Spar eTab I e. Interleave 
SectorCount := 
Temp := 

WHILE NOT< Index > DO BEGIN END 
14HILE < Offset <> > DO 

Wait For End of Sector Nark 
WHILE < Temp NOD NbrSctrs <> Sector > DO 

Temp := Temp + InterL 

i := i + 2 { count sectors at 2:1 inter leave > 
WHILE < I <> > DO 

Wait For End Of Sector Nark 

i := i - 1 
END 

!:•>>>:>>>>>>>>>>>>>>>>>>>>>>>>> 
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LocateSector: 



Ld !rO,«Dint_LctSctr 
Call SetJ3int 



LctJOffset: 



Push Rp ;save context 

Srp «WrkJSys2 

Ld lr2,».HIBVTE. FmtJOffset 

Ld I r3, « . LOWBVTE . FmtJOffset 

Lde !r4^§l!r2 ;load offset value 

Or Head, Head ; check for even /odd head 

Jr 2, LctJOffset 

Swap ! r4 

find lr4,«$0F 

I new ! ! r2 ; po i n t to i n ter I eave va I ue 

Lde Ir5.g!lr2 



Ld 



!r2,».HIBVTE. InterTable 





Ld 




fidd 




fldc 




Ldc 


LctSctrl: 


Tm 




Jr- 


LctSctr2: 


Tm 




Jr 



Rnd 

Or 
Jr 

Ld 
Caii 



!r3,«.L0UBVTE. InterTable 

!r3Jr5 ;add in interleave value 

Ir2,«0 

!r5^?!!r2 ;get real Interleave value 

Port3,«lndexriark ; WHILE Index DO BEGIM END 
Nz, LctSctrl 

Port3,«lndext1ark ; WHILE Not< Index ) DO BEGIN END 
Z,LctSctr2 

lrq^*$FF-lrq_Sector ; clear any old sector marks 

!r4^!r4 ; IF Offset = THEN we're already here! 
Z,LctSctr4 

!r2, !r4 
LctSctr3 



LctSctr4: Or Sector^ Sector ; IF Sector = THEN We're already there 
Jr Z.LctDone 



CIr 
CIr 



!r2 
!r4 



LctSctr5: 



Cp !r 4, Sector ;see if «Aie've found the sector 

Jr 2.LctSetr& 

Rdd Ir2,«2 

Add Ir4, !r5 ; temp := Temp + InterLeave Factor 

Cp !r4,«NbrSctrs ; temp := temp MOD NbrSctrs 

Jr Lt,LctSctr5 

Sub !r4,»NbrSctrs 

Jr LctSctrS 



LctSctr6: 
LctDone: 

LctSctrS: 



Call LctSctrS 

Call Clr_Dmt 

Pop Rp ; res tore original context 

Jp Bank_Bet 

Tm lrq^*lrq_Sector juiait for next sector 

Jr Z, LctSctrS 

find lrq,*$FF-lrq_Sector ;mask old interrupt 

OJnz !r 2, LctSctrS ; count the number of sector In offset 

Ret 
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